Sending an Email
Description
This tutorial shows how to build an email client into your application. There are two pages. The first allows you to compose and send an email. The second page confirms a successfully sent message and allows you to return to the previous page to send another message.
Creating the Email Send Page
Create a new dialog component.
Display the Form > Controls page.
Place two Textbox controls on the dialog. Name them "to" and "subject".
In the Selected Controls list choose "To".
1.
2.
General > Require value
Text Format > Allow letters
Text Format > Allow white space
Text Format > Allow digits
Text Format > Allow special characters
3. Click OK to return to the Dialog Builder.
4. Check Control Settings > Client side validation.
5. Change TextBox Properties > Size to 80.
6. Change TextBox Properties > MaxLength to 200.
Make comparable changes for the Subject field.
Place a TextArea control on the dialog and name it "message".
In the Selected Controls list choose "message".
1. Click the '...' button in the Control Settings > Validation rules field to display the Field Validation dialog box.
2. Check the following fields:
General > Require value
Text Format > Allow letters
Text Format > Allow white space
Text Format > Allow digits
Text Format > Allow special characters
3. Click OK to return to the Dialog Builder.
4. Check Control Settings > Client side validation.
5. Change TextArea Properties > Rows to 12.
6. Change TextArea Properties > Columns to 79.
Display the Form > Properties page.
Change the Submit/Reset Buttons > Submit button label to "Send Email".
Click the '...' in the Freeform Edit Regions > Above Dialog field to display the HTML Editor.
Enter "Send an Email Message". Set the style to "Heading 3", the font to "Comic Sans MS", and the size to "4 (14pt)".
Click Save.
Check Client Events > Validate before submit.
Click '...' in the Server Events > Validate field to display the Form Events dialog. Add the following code. This script uses the EMAIL_SEND() function to send the message.
dim result as N result = email_send(to,subject,message) if (result <> 1) then CurrentForm.Has_Error = .T. CurrentForm.Error_Message = "Email was not sent." end ifClick '...' in the Server Events > AfterValidate field to display the Form Events dialog. Add the following code. The AfterValidate event only fires if there is no error in the Validate event.
Currentform.RedirectTarget = "email_confirmation.a5w"
Click Save, enter "Send_Email" into the File name field, and Save.
Click Close.
Select New > Alpha Anywhere Web Page > OK to display the HTML Editor.
Click File > Save As, name the page "Send_Email" and click Save.
Click Insert Component > Select.
Pick the "Send_Email" component and click OK.
Click Save and Close.
Creating the Email Confirmation Page
Display the Web Projects Control Panel.
Select New > Alpha Anywhere Web Page > OK to display the HTML Editor.
Display the Source tab. Enter the following content.
<html> <head> <meta name="generator" content="Alpha Anywhere HTML Editor"> <title></title> </head> <body> <p><font face=Tahoma>Your email message has been sent.</p> <p><a href="Send_Email.a5w">Send another email message</a></font> </p> </body> </html>
Click File > Save As and name the page "Email_Confirmation".
Close the HTML Editor.
Testing the Pages
Right click the "Email_Confirmation" component and select Publish (Local Webroot).
Right click the "Send_Email.a5w" page and select Publish (Local Webroot) and open. The results should look like this.